home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / WRITE123.BAS < prev   
BASIC Source File  |  1991-06-07  |  2KB  |  46 lines
  1. OPEN"R",1,"TEST.WKS"
  2.  
  3. String$="Test":Column%=0:Line%=1:GOSUB"Write String"
  4. Value%=12345:Column%=1:Line%=1:GOSUB"Write Integer"
  5. Value#=4690:Column%=2:Line%=1:GOSUB"Write Number"
  6. GOSUB"Write End Of File"
  7. END
  8.  
  9. "Write Header"
  10. X$=CHR$(0)+CHR$(0)+CHR$(2)+CHR$(0)+CHR$(4)+CHR$(4):WRITE#1,X$;6
  11. RETURN
  12.  
  13. REM Change the final CHR$(4) above to 5 for Symphony, 6 for WK1 files
  14.  
  15. REM To do the various subroutines below, set the Column in Column%,
  16. REM set the Row in Line%, and set the value in String$, Value% (for
  17. REM integer) or Value# (for other numbers)
  18.  
  19. "Write String"
  20. "Trim"
  21. X$=RIGHT$(String$,1):IFX$=" "String$=LEFT$(String$,(LEN(String$)-1)):GOTO"Trim"
  22. X=LEN(String$)+7:X$=CHR$(&H0F)+CHR$(0)+CHR$(X)
  23. Line2%=Line%/256:Line1%=Line%MOD256
  24. Y$=CHR$(0)+CHR$(&H7F)+CHR$(Column%)+CHR$(0)+CHR$(Line1%)+CHR$(Line2%)+CHR$(&H27)
  25. FORX=1TOLEN(String$):Z$=MID$(String$,X,1):Y=ASC(Z$):Y$=Y$+CHR$(Y):NEXT
  26. Z$=CHR$(0)
  27. WRITE#1,X$;LEN(X$),Y$;LEN(Y$),Z$;LEN(Z$):RETURN
  28.  
  29. "Write Integer"
  30. Line2%=Line%/256:Line1%=Line%MOD256
  31. X$=CHR$(13)+CHR$(0)+CHR$(7)+CHR$(0)+CHR$(&H7F)+CHR$(Column%)
  32. Y$=CHR$(0)+CHR$(Line1%)+CHR$(Line2%)
  33. WRITE#1,X$;LEN(X$),Y$;LEN(Y$),Value%:RETURN
  34.  
  35. "Write Number"
  36. Line2%=Line%/256:Line1%=Line%MOD256
  37. DecimalPlaces%=2
  38. REM Change the (0)'s to 32 for currency or 48 for percentage instead of numbers
  39. X$=CHR$(14)+CHR$(0)+CHR$(13)+CHR$(0)+CHR$(DecimalPlaces%)
  40. X$=X$+CHR$(Column%)+CHR$(0)+CHR$(Line1%)+CHR$(Line2%)
  41. WRITE#1,X$;LEN(X$),Value#:RETURN
  42.  
  43. "Write End Of File"
  44. X$=CHR$(1)+CHR$(0):WRITE#1,X$;2:CLOSE:RETURN
  45.  
  46.